@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} AS |||DDOS DOSDOS SYS }}}}zzh}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}<=(6MOVSCREERALINESEPOKTEMPMBASPL2BREADDC,} -}%-AA4"!% 9ARA'AS@9A8@ ==165,16,16,7,41,12.}7,133,16,141,14,210,169,10,141,26,2,96;@I,+]A 'A9AK/}AR@]@@AR@ }116.'hhhhhhh֑`%%6-F:@0},%F:@,$AV(/A(/6-?:C:,<<%@<A Y,2A@7 AP<&&;@@,;@1},;@@,F-@@#K #AhM6-@P-@@BU Z('@"P:'@,(62}-@d 6. |6.| nC-@# ,-@7@#1 C-@@#s_"@!-@#3}( :-@8@#A M6-_-@@#x"4AEy:*-$@%@F@P6@4}6B2I: z4 A%}-@B:,0B2I$@%@F=7<,4 _25}2@ A5G%2@@@G2@@@@6}!-%@@#! 7<, G%2G2@ 6. 7}-@AP  B A-@PAU@+B2I/ AB2w B 8}B @,,,,,,,,,,,,,,,,,;;, CodeWriter Corporation,, presentsdd, Accounts Receivable,, 9} A,, CodeWriter,, programdd,,,, Copyright 1982, :} by, Cortechs Corp.--, all rights reserved, , ,>LIST "D:INTRO.LSTCONVERT;}ED BY JOHN BLUMECODEWRITER CORPORATION;@%, AU  AUp6-F:A,&@6-AV<}$+%@+%@++6-?:C:,<%@<%@<A,II6-?:C:,<BBy<<AY<@=}F<B2w<@<A<,?%A?6-?:C:,<%A<%A<A(,?%A@>}?6-?:C:,<%A@<%AA<A(,B2W@A#@6-A((6-?:C:,:,7 $0,0,60,60,60,60,A}255,2550uSYSTEM CONFIGURATION5uB2y@?u +@DuQ0@@70@@@Q0B}@@Iu7-7 @____________________Nu)-@@) @SYSTEMSu0-C}@@0 @ CONFIGURATIONXu'-@@' @MENU]u7-@7 @_________D}___________bu,-@@ , @ NUMBER OFgu7-@@7 @ DRIVES = >:@,lu7-E}@7 @____________________qu--@@- @ DEFAULT ISvu*-@@* @1 DRIF}VE{uAR@uJ  J ; HIT NUMBER FOR DRIVES (1/2) OR TO CONTINUEu<B2y@ BG}<F:B2y,@Bu@6-@6- @@@@K:uAiApH}u'AdAU'B2y@u!6-F:Ad,!6-F:B2y,u"@$u#AU B%# BI}u Bu @0)!@1$u&Ap@2&&6-F:Ap,u B)@u0-@@J}- @>:&@2,0$y$}1 B 01@@D:USER }@}+4VIEWED!6. D:MENK}U.BAS+ B 5}6. D:NOTES.BAS#}$(}d +AR@1-@@R(Program Loading Please Wait.L}dAR2}%D:BOOTPOKTEMPMBASPL2BREADDC'u) !"`3!3?@A@B`}CDEFGHIJKLMNOPQRa}STUVWXYZ[\]^_`ab}bcdefMAX RECORDS=250SET UP DIM ARRAYS+6-@ B+AR@c} >:A%, Running... @ A()9 Bq B)-@@"9  Printing...*d}2-@!6.2-@8+% 1!A'%6-&A(,67%@,.>:,-   3. e}/ B B0$U))31,28,31,30,31,30,31,31,30,31,30,31Z?9@,#@.-@@2";68f},-? _36-@A6-AP'6-36-AdDIM STATEMENTSi00;$@%@,;@@,;@ g},nH6-@H;A",9@B,9@A,;@@,;@@,sRR;A,;A,9@B,9@A,h}9@A,;@@,;@@,v00;@@,;@@,;,9,;@,x&6-@ B&(A"y Bi} A z4 A&4@@ D:PROGRAM{%@@% A'~,6. D:RECEIVE.Sj}CR"@, B @@:@%68@,-@:68@,-@-@k}@@@@ 68,-68%@,-8,%%%68%@,-l}8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$678m},<8%@,&@,. @ B)6-F:Ap, B)(A h6-6-n}|* 6. 67@@,.*67@,.$ 6. 67,.$67@,."A@X A@#BU!o} A,@X@@D1:RECEIVE.GLB-@" A3@ 6-A:,p}6-8%@,&8,""8,&@B$B#$$678,<8%@,&@,. A5''678,<8%q}@,&@,.0X  A6-@;6.D :RECEIVE.IDX;67@<@,.=:F:Ap,,+@r}+@@@67,. 6-% A`56- A56-A:7$@%@s},, B* 6..67@@,.*67@,.$@ B` Be5 +t}6-@+AR@5 B >:A%,*-@@* Program designed-@@ byu}0-@ @0 CodeWriter CorporationO4 D:PAYABLE.SCR)-@ @E(Accounts Payable SystemO A%v}4-@@4 Accounts Receivable System .-@@.(Your selections are:>-@@ > $w}File preparation.(first time only).F>-@@>($Enter new records..................E>-@@>($Lx}ookup records.....................L!>-@@>($Search records.....................S&>-@@>($Upy}date records.....................U+>-@@>($Delete records.....................D0>-@@> $Exiz}t program.......................X5>-@@>($Exit to main menu..................M:>-@@ >($Ente{}r function by pressing the key ?<-@@"<(" To return to this menu press D16-@76-@ '6-|}@'1 B F4)4>:@',AH4FAI"AK4EA M4LB}}O4SB Q4UB0S* 4D B@ @* AX* 4XA8'+*~}[4MA] A16-@ B' B1 Ap + A)AR@;-}@@^ Loading program please wait...pAR% D:MENU.BAS Bm +'0@}@A0@@[0@@@mAR@9-@@9 This opt}ion will erase all your5-@@5 previously entered records.=-@@= #To begin file preparati}on press =-@@= #To exit file preparation press ?-@@? %Please enter choice/press }RETURN ۠ 16-@26-@7'6-@1 B 4CA4XA A5LV}? >:A%,"-@@? This will take some time` Bot A##@@}E:A `a (}-@@2 Your file is full.D-@@a Hit to continue.}#6- B# A# 6- B }#AR@#-@ 8,!@A!0}*/-8,8,/ 78,<8%@,&@,48,"A!0>8,"@ mm/dd/yyH>8,@*8},> 7@<8%@,&8,,R AR\6-aH-@@"H &@# records} on file f-@p''8, @)8,!@A!u<-@@#< ! to skip fie}lds/return to menuz A{0A!|@A#/ -/8, @)8,!@A!y}8, @A!xo6-%6-8%@,&8,D8,&@B$B#e678,<8%@,&@,.o} A!y$$678,<8%@,&@,.  6- A!$$678,<8%@,&@,. 6-@}# B BP#6-@AR@j-@@"? % for menu, to print, j(% } to change, to save AR4F:Ad,"@(*AdAU4 A#,F:B2y},"@" @@, A" ,F:B2y,"@" B3, A"P F:B2y,"@A"P A"%(}A#6.7@<@9,! BP B! B6-%@ A E@ A@}B% 6-8," @)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@,&8,F'6-6-"@}' BH 4$I BJ3!@3&@B B!B!LAN!@* }A%R#"@ A`# A S6-TAV''B%B&B$B#X$Y 4} $\ 6- -@B:,^?6-@:7,,9"@v)"@w)"A)"A ?6-`  ($bD7<},4m)7<,4MA6-A:78,<8%@,&@,,%D$d,)6-A:78,<8%@,&@,,&,$0AeM}-@@"> $KEY FIELD - You must enter somethingJ6-@M$6-$*+9#@@}E:/6-9 B + B(A+>-@@">($ to exit, to print, +))( } to change, to continue+4F:Ad,"@(*AdAU4 B@%+,F:B2y,"@" @@, B}p*+-F:B2y,"@#@- B/+ F:B2y,@B54+ B3(B@5+ 6-6-%@}6+V+7@<@9,07@<@9,5 B `L6.7@<@9,V BP9+ B B>+ B0}.@ A..6-@.##@@E:.6-@ B. @B}%. 6.6.6-. }-@@.-- $SCAN ALL OR SELECTED RECORDS (S/A)? .16-@6-}@8'6-@21 B .4B%/4AB#p/4SB `/ B / }-@@}!/>' WHICH FIELD TO SELECT ON (1-34,> OR '?' TO LIST)? &/16-@6-@'6-@1 B0/4>:@'},B%:/+ 4?6-! B0+ B `D/4 B!@6-A:,4 @)!@4B!@N/6-}-@X/56-%@58, @)8,!@B! b/  B!Pl/2-@@#(  Ġ2 }B v/"6-8%@,&8,"6-8,/!@6-@/4-@@4 78,<8%@,&@,/} @B"p/,   ,  SMALLEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /(  (}  LARGEST VALUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /'6-@6-@'6-@ / } B#0//6.7@<, "@/6.mm/dd/yy//   /  SMALLEST VALUE TO SELECT? 0$$  INC}LUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0!6-@ 6-@0!6-}*0 B'/04B%40 6-6.6->0+6-%@!@ +6-%@@0 B'C04B}%H0 6-6.6-R0!&@B%W0 >:A%,\0+6-@$6-&@%6-+6-f0 B }Bp0"B%0u0"@B$qz0"@B$0$$6.78,<8%@,&@,04B}$@02)*4B%p04B%003)*4B%p0 B%00$$6.78,<8%@,&@,0}4B$u0 6.6. B'6.0## )*"B%p04B%00 6.6. B'6.}0## )*"B%p0 B%00''6-A:78,<8%@,&@,,04B%0 )*"B}%p04B%00!)*"B%p0 BP0AR@ B0>-@@">($ to exi}t, to print, 0--($to change, to continue, elete1:F:Ad,"@(*AdAU06-: B}%p1>F:Ad,"@X*AdAU4 B@0> B#p1,F:B2y,"@" @@, B%5 1 F:B2y},"@B%p1 F:B2y,@B%E1& B36-6-&(B%51V+7@<@9,07@<@9},5 B `L6.7@<@9,V BP1! B B! B%516-%@ B#p$1@ }A1! 6-6-"@! B1-6-4)4*6-%@-$1+!@+&@B B!}1B'1"@6-A:,1B%B&B%1-6-%@6-#6-@2- B1 6}-4N1 6.1$22##@@E:2 B2(B1p2 B32B12 6}. BP3j-@@"> $Hit to return to menu, or P-@@#j to continue editing.3)6}- B)4B1p"3 B,3 B0@63 6-6-%@@3337@<@9,47@<@9},B1`J3 B `T3$6.7@<@9,$ BPh3 B Br3@ A33 6.6}-4 B4 }4Q0@@70@@Q0@@@!4 BP}&4<-@@"< "Enter 1-30 to change field, '?' to04++ " list, 'p'rint record or 's'ave. :416-@#6-@4}'6-@1 B?4 BD4 4S)4s6-@ $I4/4P)4p @@% B/ B3PN4 }46-$X4+ 4?6-@! B0+ B3@b496- B!P9) @)!@0B6l46}--@v456-%@58, @)8,!@B404 46-@4 A4 46}-$4$$678,<8%@,&@,.4 B3  5*5R-@@"< !ĠĠ - Hit }H6-R B45 B3P66##@@E:6 B6(B@6k B-@}@#> Sure you want to delete? J6-@#V6-@3a6-@:Y,k B64N)4B@66-&}@ B `66-6@6 B`7 6. 7$>$B$END GLOBALSB BPB[-@@", }Printer not ready.>-@@#[ Hit to continue.BC-@@"!6-@"-6-@96-C }BB B$PFPC CALCS AND GLOBALSQF BRF6-A:7A<A",,F6-A:7A#<A1,,F}6-A:7AP<AT,,F6-A:7AU<Ac,,F6-A:7A<A,,F6-A:7A<A,,F6-A:7A}<A,,F6-A:7A<A',,F6-A:7A(<A1,,F6-A:7AX<Af,, G6-A:7Av<A},,LGCALC P.C.'SG6-$%$%$%$G6-$'AG 6-%%H 6-&H6 6-6-@  B#667}A2<A@,.H6 6-6-@ B#667AA<AH,.H6 6-6-@  B#667Ag<Au,.}@!+ Please enter key.LJ'-@@'  Customer VJ16-@6-@'6-@%1 B[}J4)4>:@',$`J B%6.oJ+-@@!+  qJ 6. BtJ(B`~J!} 6-6-%@! BJ BJ""07@<@9,B@J BPJ'-@@#'  Is this it}? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J 6. BJ B`JC }-@}@C #No Record Found. Hit for menuJ F:B2y,@BpJ$ N*N# 6. 67,.#67@},.4N 6.6.9NF@#6.D :RECEIVE.DATF67@<@,.=:F:Ap,,>N @@}CN-@HN@RN\N6-P:'@',fN6-&$@'zN6-%@dN6-%@dN6-%}@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%@,.>:,N67B:,%@,.>}:,N67B:,%@,.N-@N''8,")8,!@BN$$6.78,<8%@,&@,N }@N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: /O 6-@O@} B`O. 6.067,.$67@,.. BeO B$O B6.$O.F:A,"Ab. }DI}SK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,.OR!  Hit to continue.-6-96-}E6-O BR$LOVO$ 6-B:,!@$6-@`O/67%@,.!6-@/6-&@jO* @}6-@'6-*$tOK6-$@&@.37<%&@,:6-H6-%@K$~O"BO}.6-P:+%,'@,.6-$@&@O/7<%&@,6-O&37<%&@,&6-%@O BP}O6-$@&@O6-+47<%&@,,O6.7<%@,$OP;6.D :RECEIVE.DAT;67@<@},.=:F:Ap,,P+@+@@#P# 6. 67,.#67@,.(P@2P-@}6-$6.D :RECEIVE.PRG>67@<@,.=:,T+@+@@T@}6-!@$T @ A)T B$UU6- B pU4)4$U76-A:7@}<@,,76-A:7@<@,,V'6-A:7@<@,,' B V++)) B p V}""P:,)P:,)P:,B pV30"@*"@)*P:'@,"'@3$V/ @)!@%6-@/ B} "V. @)!+8,,$6-@. B ,V$6V'-@@"'  Invalid date.;V B6-@$@}V--@@"- Month out of range.EV$JV+-@@"+ Day out of range.OV$TV^V6- B}!PhV:-@@": A numeric answer is requiredrV$VV 46-$V B!6-A:,V}6- B$V6-@ B$W&W$$6-P:A$%?P,'A0W""6E)EB#}:W! 6.=:,6-B:,!6-@DW.-@7<,4..6-%@&NW SW 6.XW& %!6.#67%@},.&$bW67&@,.0.00lW67%@&&<&,.$vWK 6.*67&@,.+67@,.H67&@<}&@,..K$WW""6E)EB$W 6.=:,6-B:,W6.7@<,W 6.67%@,.}$W. 6.*67&@,.+67@,..$W6.7@<,W 6.67%@,.W$HXMX" 46.} 6."$RX0 6-A:,6-A:7@,,06-A:7@,,\XH6.=:%A,.67@,.=:%A,H67@,.}=:%A,fXD67@<@,./567@<@,./D6.7@,pX$XX%6-6-% B}'pX'6-A:7@,,'6-A:7@,,X 6-N:&,$X 6-A:,6-A:,X 6-N:&,$X'6-A:7@},,'6-A:7@,,X B6-N:&,$YY!6-B:,"!$$Y8-@B:,,7<,10*}7<,/986-@.Y   $tY~Y!6-@6-B:,!6-B:,Y   $Y-&Y$7%@<%,4}$6-Y   $YY4 }AR@(6-46-@Y'6-@6-'6-Y!!6}.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calculated fields(Z%6-@}6-@% B3:, >:,w"Bpw&6-%@&7<,0/Bp }w.6-%@$*@@1. Bpw) 6-6-&@)AR@w -% 7<,w"7<,4 }/"6-&@wD67%@,.'AR:*@@0D Bpwx x6-F:B2y,x"@ }*"@$x"@*"@$x"@*"@$x"@*"@$#x"@*"@ }$(x"@*"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@@ }K:xAR@x -x)!@1* @) >:%A(,x' @2)!@' >:A`},x)@x"AUB x"@'6.$x!@1* @6-y'!@* A#'}6-&@2y B y -6.>:, $y]@)0@@C0@@]0@}@@"y$|yA@'-@"/ A@y$ D:RECEIVE.PRGUNMDv 88MSKPRTRSCRSPFLAGINDEXINFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU}MTXNUMSESUMITEMFLDBPDFFEPSVDVDSECFLGFSFLTYPPAGSECTIOROCOPDIFKENOPPMBLANKOERVNVNVDVDVA}1VA2VNVNGTSUMPCF3F4IP(7 (_('(Z@7# $ $ }$BZ k'PP 'PP (d@'@@2@@ @AAX"+AV!+AUAy@AZ *}@@(@@@ !@"@A#( A$) A%S) &@'@@()*R }+BA,o(-AU./0123456B!"78@"9:};<=>?@@ABCDB!!EAFB!!GB"H#I#}JAKB!"ALZ#AM`# AN#O#P#QR@S SAVE "D:BASIC.R ;@,4 @}P4@@ D:PROGRAM%@@% @2,@"6. D:RECEIVE.SCR, B}ZAR@ }dM4 D:PAYABLE.SCR(}/-@@C Payables ReportM Ae9(>:A%,"-@}@9 Receivables Reporti'-@@ '  Designed by :n0-@ @0 Codewriter Corporationx}-@A . STEP ONEjj;@@,;@@,;@@,;@f$@,;@,;}@$A,;@"$@9, RR;@,9@A,9@B,9@B,9,9@,9,11;}@%,;@,;@,;@%,ee;@,;@,;@,;@"$@9,;@,;@,;A},9@,G+F:Ap,"@)F:Ap,"@=6.=:F:Ap,,G A .A +'0@@ }A0@@ @84-@@4 Which drive will hold yourB*-@@* data disk? (1/2)L!}16-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Apj>6.D :RECEI"}VE.DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GLB~8 A`8@@#} D:RECEIVE.SCR A0 A APD B@/68@,-@D68@,-@$}-@@@@@" 68,-"68%@,-8,%%%68%@%},-8,%@%&& -@@$$678,<8%@,&@,. @//&}@@D :RECEIVE.F01@@6-A:, 9,9%,9, @'}@ 94 D:PAYABLE.SCR967@4<@C,. Payables  34 D:RECEIVE.SCR367@%<@(,.R(}ecd 2 6. #67@f$@,.267@,.Z67@,.!67@,.267Aa,.-B67A@,.Z67)}Ab,.7Aa,-@@( 68,-68,-68,-2 7"A < 9,*}F-@P@Z67%A@,.d68%,-i68,-%B:,&@n x A @+}+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@@,}. @ IN DRIVE #10-@@0 @ PRESS --@@- @ WHEN READY-}6-@ B$ A24 6.What is today's date? H BM 6.6-R!-@!(8,A.}!2S77&@A!@A!`A"PA!A"T W: (}-@@:(Is this all correct? (Y/N)/}X16-@36-@'6-@21 BY4YA00Z A \--6.#ENTER THE LOW BALANCE FOR THE RANG0}Ea6-@  B6-f,,6."ENTER THE HI BALANCE FOR THE RANGEk"6-@  B6-"$p--6.#ENTER1} THE LO DUE DATE FOR THE RANGEu B6-z--6.#ENTER THE HI DUE DATE FOR THE RANGE B6-$,,6.2}"ENTER THE CUSTOMER NAME FOR SECT 56-@% B6.''6.ENTER THE CUSTOMER ACCOUNT # "6-@ B3}6."$''6.ENTER THE LOW AMOUNT RECEIVED6-@  B6-((6.ENTER THE HIGH AMOUNT RECEIVED4}"6-@  B6-"$(8@, A!@(8@, A!`$  . STEP THREE 5} A +'0@@ @A0@@ @ 9-@@9 Do you want this report sent to -6}-@@- creen or rinter?  16-@%6-@'6-@21 B  0S*0PA0` 6.7} ! 4P B!A0` A5 OPTIONAL SECTIONING $-@ 68,-$  % } B 8}%-@@ Do you want all sections /-@@/ of this report? (y/n) 16-@'6-@9}'6-@21 B ) 4Y-@"68,-& )$  } B 6- 3-@@3 Enter :}a section number to 4-@@4 include in this report, or (-@@(  to exit .-@;}@. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B  4 B$  A36-A:<},  @)!)8,A3 46-P:'@@,4-%@&@@$%@  * 6-%@4 68,-> =} A3 UPPER LOWER CASE  }-@@ !! Do you want to ignore the 2-@@2 differe>}nce between upper /-@@/ and lower case? (y/n) 16-@'6-@'6-@21 B  6.N?}4NA9 6.Y  6. B(6.  6. B(6.<4P)4p A`. STEP FO@}URA +'0@@ @A0@@ @0-@@0 Do you wish to sort? 1A}6-@6-@&'6-@21 B4NAP_ A@c@@@@ D:SORT.B}BASK@U B_ A@p }-@@BB  Can't find >:@4, D:SORT.BAS>:@4, on disC}k.-@@&9-@@9 Enter field to sort records by.6-@@6 (1 - , or D} to list)? 16-@)6-@'6-@1 B+4L)4l B0! }+ A@p A@6-A:E},A-!**8,!*8, @7 BA AAP";-@@; Field  invalid. Enter forF},@-@@6 a list of fields to sort on.@ A@6M 6-6-#-@?8,!*8, @G}M6-%@8 ;ASC, OR DSC SORT@Q-@@ .-@@Q scending or escending sort?H}J'6-@56-@'6-@2T# B #0A*0DAA^ 4D6-6h//@@I}D:SORTPARS.DAT|9& @7@:&@2,BY   $YLIST FIELDSY4 }AR@(6-46-@Y6-@6-Y!!c}6.Keyboard entered fieldsZ%6-@6-@% B3ZB1Z##6.Program calculated fields(Z%6-@d}6-@% B3:, >:,w"Bpz}w&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-6-&@)AR@w -%{} 7<,w"7<,4/"6-&@w867%@,.'AR. 8 BpwCONSOL CONTROLSw!!|}CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4}},?x LOOP x6-F:B2y,x"@*"@$x"@*"@$x"@*"@$x"@~}*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0Y*0N*0B}dx$x.@.@@K:xAR@x -x)!@1* @) >:%A(},x' @2)!@' >:A`,x)@x"AUB x"@'6.$x!@1* }@6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@@}C0@@]0@@@"y$|y--@@"- 7@<@5,y$}@-@}@ @(&}4 PAYABLE.SCRB!}**(" 1 | Display all Customer}s },,($ 2 | Display Balances within}''( | a specified range}((( 3 | Display Receivables}}((( | within a specified} ( | date range#}((( 4 | Display Receivables(}((( } | within a specified-},,($ | balance and date range2}&&( 5 | Display Specified7}( } | customer<},,($ 6 | Display Amount ReceivedA}((( | within a specifiedF}( | range}K}$d}((( 1 | Display all Vendorsn},,($ 2 | Display Balances withins}''( | a specified r}angex}%%( 3 | Display Payables}}((( | within a specified} ( | date range}%%( } 4 | Display Payables}((( | within a specified},,($ | balance and date range}&&( 5 } | Display Specified}( | Vendor}((( 6 | Display Amount Paid}((( | within a spec}ified}( | range}$D2:RECEIVE.R01GLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU>'D@?@@@@ABCDEFG}@HAI@JKL@MNOX%PArQRSBTUV}Wq$XL$Yk$Ze$[\]A^!+@_A`#abBcdAreC f}g@h\ PPi@j@k@lXrmQ@n opqrstu}vAw($@xy@z{|}ArSAVE "D:BASIC.P. STEP ONE;@@},;@@,;@@,;@f$@,;@,;@$A,;@"$@9,;@%,;@,;@}, GG;@,9@A,9@B,9@B,9@,9@,11;@%,;@,;@,;@%,(\}R;@,;@,;@,;@,;@,;@,;@,\T$(100))&6-F:Ap,&!A0}.A +'0@@A0@@ @84-@@4 Which drive will hold yourB*-}@@* data disk? (1/2)L16-@"6-@'6-@1 B V%01*02 B % A`} 6-A:,Apj>6.D :RECEIVE.DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GL}By 6.67,.I01{o67@<@,.1& AIM@@ D:PROGRAMZ@e@}o AP}"6. D:RECEIVE.SCR"@~* A`*@@ A0 A AP/} B@/68@,-@-@@@@@} 68,-68%@,-8,% @//@@D :RECEIVE.F01@}@6-A:, 9,9%,9, @@ 94 D:PAYABLE.SCR967@4<@C},. Payable  34 D:RECEIVE.SCR367@%<@(,.Recd-@@( 68,-68,-}68,-2 <%%9%@,;@$@V,F%68@,-@%(AK-@P@}Z678,,.d68%@,-8,%B:,i68%,-n o4 A4@@ D:PROGRAMp@}@q94 D:PAYABLE.SCR967@4<@C,. Payable x" B@" A  68,- }@ A @+@/-@@/ @ PLEASE PLACE/-@@/ @} PROGRAM DISK.-@@. @ IN DRIVE #10-@@0 @ PRESS --@}@- @ WHEN READY6-@ B$READ IN TEMP VARS7@7@@ }D:DVARS.TMP! B!READ IN VARIABLES@ 6.N6.Y@@}*@7@D@Q@^@k@x@@ @ }9, -@ @68,-   $@6. B!$6- 44@3@} D:DVARS.TMP A`  CLEAR OUT SUMMARY  6-6-ADJUST SEC. SUMMAR}Y"$3 A@26-36-A:7Ag<Au,,3 A@46-36-A:7Av<A},,3 A@66-36-A:7A<A,,"ADh68@,-8@,%m!8@, !}68@,-r68@,-8@,%w!8@, !68@,-|68@,-8@,%!8@, !6}8@,-&$068@,-568@,-:68@,-?68@,-D68@,-I68@,-}$OVERALL SUMMARY ADJUST  6-%$PRINT SUMMARIES B6-A?(-6}7A0,.SUMMARY FOR SECTION #?67AQ,.=:,b&67A0,.OVERALL SUMMARYG67@e<@r,. b6}7@x<@,.1 ##6-+!,$%+",$77*")"*")"AR>#6.T}OTAL TOTAL COST 46-8@%,> AY>#6.MAXIMUM TOTAL COST 46-8@%,> AYf#6.TO}TAL AMOUNT RECD K67@<@,.7@%<@(,\6-8@%,f AYf#6.MAXIMUM AMOUNT RECD }K67@<@,.7@%<@(,\6-8@%,f AY>#6.TOTAL BALANCE DUE 46-8@%,> AY}>#6.MAXIMUM BALANCE DUE 46-8@%,> AY(AU6-w6-@|3#6.NUM}BER OF RECORDS INPUT: )6-3 AY B$ 6-%A`6-@ (67%,.OVERALL(6-%@}*67%,.6-%B:,467%,.=:,>$pz. STEP SIXA +'0@@ @A0@}@6 A`6-6@@@6-%@67&@,.=}:B%,)67&@,.7&@,) A`P Aa@ @@ Aa } Ai A` Aap6-@@67,.6-B:,%@ AaP226-A:7P:'@,$}@%@,,&@$ Ab@3REORDER INDEX$ AS PER I018 B-@B3 6- 36-A}:7$@&@<$@,,L/6-$@&@/6-@$&@VQQ67<%@,.=:A%@:7%@,,}%@'$+@:7,,&@d,&@d,`W!67<%@,.7%@,=6-@:7%@,,&@2I!@W6-&@dj}!!67%@<%@,.>:,t  Ad+@+@@@ B 8 6.} #67@f$@,.267@,.86.Q 6.67@,.)67Aa,.-967A@,.Q67Ab,.7Aa},<FSTART PRINTING REPORTPZA +'0@@A0@@ @d?AR@}? %Your report is now being produced ...i #Ag"6-n56-@ A05CLEAR OVERALL SUMM}ARYs6-x-@{467@x<@,. *6-4 B} "(8,Af`/ )}6- A0/CLEAR SEC SUM[6-#-@@:68@%,-I68,-M [-@}116-A:7@$&@<@$&@,,6-@:7@$,, BREAD IN RECORD AACCE}PT/REJECT?Af0 A ApCALC PC'S$ ) A@$ADJUST SEC SUM! A!PRINT }RECORDS6-%@  B* * B*PRINT LEFTOVER REC'S-6- AP-PRINT SEC }SUM& AF&ADJUST OVERALL SUM 16-@ AP1PRINT OVERALL SUM"67B:,&@,.SCR}#@ Af@@@@ D:MENU.FLE$ B Af% AiP Af&"@} Af"+'% D:MENU.BAS) B,1,1,1,1,1,1,1,1,1,1,1,1,1 +@/-@@/ }@ PLEASE PLACE/-@@/ @ DATA DISK IN,-@@, @DRIVE # 0-@}@0 @ PRESS --@@- @ WHEN READY6-@ B$& +@+/}-@@/ @ PLEASE PLACE02-@@2 @PROGRAM DISK IN5+-@@+ @}DRIVE #1:0-@@0 @ PRESS ?--@@- @ WHEN READYD6-@ B}$XbNEW PROG. CALC.'Sl{?68@,-8@,%A:78@@,<8@A,&@,,{68@,-8@,%A}:78@@,<8@A,&@,,$@JACCEPT/REJECTTc66.7@ <@,$ B$,4Y6 B(}e 6.g66.7@<@9,$ B$,4Y6 B(i 6.k3 AE6-36-A:7Av<A,,m}*6.7A<A,$ B%*6-o3 AI6-36-A:7A<A,,q B4!"@6-(}+@,>!"@6-(+,H!"@6-(+,R!&"@&6-(++,*+,,\!"@6-(+}4)4,f!"@6-(+,k!$!"@6. B! 0 B6.!$(#2#PRINT REC}ORD<#># BA#11IF NOT NRS THEN GOSUB 11500:REM CLEAR PAGEF##!@` B# BK#<67@,.} $67@,.<67@,.7@,P#-@Z# 6-8,! 6.=:8&,,d#$$6.78,<8%@,&@},i#-!@* @# B - An#))678,&@<8,&@%B:,,.x# 6-%@#67@%}$@,.#16-%@"#6-16-%@#$'PRINT PAGE''(67@f$@,. (6-@}$' 4P B$.'76-6-% B7PRINT TO SCREEN8'-@@ B'A"6-@0%H:},$AA6-@%@$H:,L'2@ V';2@'6-'@;!? }Bp`'.@.@@K:j')@t',"@:?, B@" B, Bw'"@:}P, Bz'"AU$~' 6-6-'"@E6-&@'"@a6-%@'"@C6-}&@'"@B6-%@'"@(6-&@'"@)6-%@'"@06-&@}'"@16-%@'"@6-&@"'"A$6-%@"'"@6-&@@'"@}6-%@@( 6- (!@@6-@@( 6-(!@D6-@D}(("*"B2( BPRINT SCREEN<( B)PRINT WINDOW ON SCREEN)) }AR@}")+-@!+6-%@$+%,,))-) 7%@<%@@,6)J -@"J   ROWS }%@ TO %@" @)A-@ @"A COLS %@ TO %@@ J) -@5@" }T)>-@@#> #ۿ for help, to continue.^)$*+%%PRINT PAGE OF REPORT TO PRINTER ++}3B:, @f$@367@f$@,. + BP$+''-@@f$@@ +37<%@y},*+ 4+$,,CLEAR PAGE- -)6-6-)6-%@-67@p,.=:,-67@x,.=:},(-P67AA,. ,67@f$@,.D67AB,.7AA,P6-@2-$ N*NINPUT RECORD4N>N+}@+@@HN2 6. #67@"$@9,.267@,.RN@\N-@fN''}8, @)8,!@BpN@zN$$678,<8%@,&@,.N 678,,.N@$}UNUMERIC FORMATTINGU6-P:@#%?P,U6-P:$%?P,'V""6E)EB  V"}6-6@V# 6.=:,6-B:,#6-%@V$-@7<,4.$6-"V 'V6. ,V%}!B 6V67&,..000000@V767%@&&,.*67%@,.4 B7$JV. 6.*67&@,.+67@},..$WFORMAT STRINGW# B$@6.6-B:,#6.W-@:7,,"@2#6-&@- B$ W6.7@}<,W B$WFORMAT DATE YYMMDDW6- B%@W""6-A$A:,%A:7@,,X6-B$A:7@},,% X B$YFORCE UPPER CASEYB:,"$$Y-@B:,.Y6-@:7,,8Y/!@* A#}/67<,.>:&@2,BY   $]: }@:  KEY FUNCTION ])()( [-] Scroll up o}ne line.]((( [=] Scroll down one line.]--(% [+] Scroll left one character.]..(& [*] Scroll right }one character.](]((( [] Scroll up ten lines.]**(" [] Scroll down ten lines.]//(' [] Scr}oll left ten characters.^00(( [] Scroll right ten characters. ^(^( [_] Page up.^( [|] P}age down.$^( [\] Page left..^( [^] Page right.8^(B^((( [P] Send page to printer.L^-(-("} [RETURN] Continue with reportV^.-@@".  to continue.`^ F:B2y,@BA`j^$aP}RINTER CHECKa6-@a8 BP`@8@@P:a6-a B@a}$aO-@@# .-@@#E O BP@0uFOOLPROOF INPUT ROUTINE:u4AR}@6.(6-@46-Du!!"*"B`Nu -Xu,6.mm/dd/yy"6-@, B@}Bw(6..67,.(67@,.Lw ARVw-%@ `w##@@K:}jw)@ow'"AU** @'6-tw"@'6.~wL"AU)"@'+AR@2 }=@I6-L$w"A&*Bpw%% @2)!A")"Bpw'!67%@,.7%@<,'}6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw) 6-}6-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,.'AR}. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OP}TION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*"@}$x"@*"@$x"@*"@$#x"@*"@$(x"@*"@$-x B}%Px B Zx0Y*0N*0Bdx$x.@.@@K:xAR@x} -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AUB }x"@'6.$x!@1* @6-y'!@* A#'6-&@2y B y -6.>:}, $y]@)0@@C0@@]0@@@"y$|y--@@}"- 7@<@5,y$|^67@,. $67@,.<67@,.7@,H"@T6-@^ B}0|6-%@|`-@@R678%@,&@<8%@,&@r,. ---------V ` A|<67 }@,. $67@,.<67@,.7@,|P6-@ 6-@)6-%@=-@@F6-8,P  }B |P4678%@,&@<8%@,&@r,.8 B AP6-%@|F67@,. $67@,.< }67@,.7@,F A|!BE|6-%@|Z67@<@%,.P67@'<@2,.78@ },<8@,&@,Z A|67@,. $67@,.<67@,.7@,t67@<@2,. ========== }======================6-%@ A|--@@&68,-* -$|n6-%@%-@@}`678%@,&@<8%@,&@r,. =========d n A|X6-@ 6-@)6-%@=-@}@N6-8@%,X B |S4678%@,&@<8%@,&@r,.8 B AP6-%@S$}}:(6.78@8,<8@9,&@,2 B!:6-&}++6-A:78@@,<8@A,&@,,}Y @06-@}568@,-8@,%O68@,-8@,%Y B P }Y @a6-@568@,-8@,%O68@},-8@,%Y B P}Y @6-@568@,-8@,%O68@,-8@,%Y B P}C6-@} )68@,-8@,%C68@,-8@,%2}8)678,&@<8,&@%B:,,.56-@ 8$d}8.6.$00}00310590901201511812122432733043348 B!%i}Q6-A:7@<@,,76-A:7@<@,,Q6-A:7@<@,,}n}hh6-%+&@r,$Ae%P:+&@i,'@,%A:7@$&@<+@$&@,%@,,s}H:!@*+A}%,'@"P:+A%,'@,H6-%@x}$}} 6- B$ D:RECEIVE.P01ERRCRNUMFLDNUMTXNe12880210066 ../../.. *** Accounts Receivable Report *** SECT PAGE  Due} Date Invoice # Amt Paid Current 31- 60 61- 90 91 + Balance 41-1327-13881-1990}-137100-140111-140121-140131-140141-140152-1e Report *** SECT PAGE  Due@pq&CAFDIRSDDCLINESEVOSKITLE1LBLPRMNULTRCPDTLE2TLE3BPRGRIIDAUTOTLEERDISBREA"} "}"} !"#$%&'(hh;@@,;@ ,;A,;@ "},;@,;A,;@,;@%,;@@,&&;@ ,;@,;Ae,* 6. 67@@,.*"}67@,.#6-@6-@(* 6..67A,.*67@,.2*6.D :*.**67@<@,.=:," }<* 6. 67@,.*67@,.FAR@d Bi Bp.@.@@"!}K:26-@%B:,$6-@%%*-2  6.)@ 6.>:, @-""}@7<,4' A  AP6-$@&@6.7<%@,$$7@<@"#},41A)7@<@,42&+).$$7@<@,43A0$$7@<@,44A@"$}$$7@<@,45AP,RUN A PROGRAM167@<@,.D:6-@@;7<,4 "%}' A0@ J6-&@O''67@<%@,.7@<,TL 67%@<%@,..L67%@<%"&}@,.7@ <@,W9-@@%%9   Loading Program Y**@@ D:PROGRAM"'}Z64C)4D, @ D:PAYABLE.SCR6 AH[ @ D:RECEIVE.SCR\@] A`^%h"(}@ B }m2-@@2  Cannot execute program.o1-@@1 Press to continuer")} F:B2y,@Apu Aw @%EXIT TO BASIC + DIRECTORY B"*} AFORMAT UTILITY B A$ B @%""DISPLAY REPLACE DISK ME"+}SSAGEA +@'0@@@A0@@(-@@( @PLACE0-@",}@0 @ MASTER DISK%-@ @% @IN,-@@, @DRIVE #1-@"-}@1 @PRESS --@@- @ WHEN READYB2y@* B*F:B".}2y,@AX* B*F:B2y,@AX $fDISK CHECKg AYh6-k+@"/}+@@l B@m6-!@n @ Ao$*DIRECTO"0}RY*$, FORMAT,DISK FORMAT UTILITY,+ +@AR@+6-,9AA'A @"1}9AA-.. & TO RESTART FOR MENU-  -** ! TO BEGIN FORMATTING-7-"2}7 @____________________-.-@@. @ DISK FORMAT-*-@@* @"3}UTILITY-7-@7 @____________________#-Bp(-3-@@3 @ REMOVE M"4}ASTER--5-@@5 @DISK FROM DRIVE 2-3-@@3 @PLACE DISK TO BE7-8-@"5}8 @FORMATTED IN DRIVE <-CONSOL ROUTINEA-B2y@F- B6-F:B2y,K-!!"@*"6}"B P-"@$U-"@BZ-+"@!B2y@+ B_- Bd-@ B$"7}@@@@ D:MENU.BASe- B Bh-@i- 6.D :n-67@<@"8},.=:,s- Bx-6-@@6 @ formatting disk }-4(AT@46-@"9}- A>% +AR@%  >5-@@5  Directory for Drive # >=-@@":}= ## NAME EXT # NAME EXT>?-@@? %>-@@";}$t@INSERT DISK FOR DIRy@ }6-~@-@@  @&(&  in drive .@4-@"<}@"4  to continue@ F:B2y,@Be0@$hBNEW MENU FORMATmBC +A@"=}1AR@CA@wB#-@# Vol # |B6-B-@2 B-@">}@B0-@0 7$@0&@)<$@0,B B"Bp`B-@B6-$@ &"?}@B1-@%@%1 7<%@,7<,B @6-%@B@6-B B-"@}@ @%% B$PFLOAD MENU_F 6.6. D:MENU.FLEiF 6.nF AYpF&&6. Insert disk wit"A}h menusF Be B0xF+@+@@}F@@F@F"B}-@@F@F&&67$@0&@)<$@0,.F F-@@F 6.6.F"C}@@F&&67$@ &@<$@ ,.F67<,.F F@F-@F 6."D}F@F&&67$@&@<$@,.F G@G$R$y)6-F:@,&A(& "E})$y@B7t$ D:MENU.BAS1LBLPRMNULTRCPDTLE2TLE3BPRGRIIDAUTOTLEERDISBREA 5  AAR@= }-@@= Loading menu. Please wait ...%&G} D:MENU.BASd) B+)AR@i1-@@ 1  Insert main menu diskn!(!  i&H}n drive 1s@-@@"@ % to continue, for Basicx6-F:B2y,}"@@ ""@&I}+" A  D:LINK.BAS= }-@@= Loading menu. Please wait ...%$7 *** System Notes *** The first menu that you see is themain menu. You will have the optionof running a Data Entr*K}y Program, a Report Program, or a program that will allow you to view these notes.From this menu you will also be ableto *L}format a disk, or exit to basic. The Data Entry Program Menu hasseveral important options available.The following screen*M}s will explain each option and when to use them. **** IMPORTANT NOTE **** YOU MUST HAVE A BLANK FORMATTEDDISK*N} BEFORE YOU RUN THE DATA ENTRYPROGRAM. LABEL THIS DISK AS YOUR DATADISK. All the information that you enter will be sto*O}red on this disk. When yourun the Data Entry Program you will beasked to insert this disk. You can use the format optio*P}n from the Main Menu to format a disk. File Preparation ............... F This option will prepare your datadisk*Q} to store the information that you will enter. It is necessary foryou to take this option the first time you run the progr*R}am. REMEMBER ... It is necessary for you to take this option the first time only. Once you have entered data - taki*S}ngthis option WILL ERASE ALL OF YOURDATA to prepare your disk for a new file. Enter new records ............... E *T}This option allows you to enter theinformation to be stored on your datadisk. To stop entering data and return to the data*U} entry menu press'ESC' twice. Once all of the fields have been entered you will have the opportunityto change a field, *V}return to the dataentry menu, print the record, or savethe record. Pressing 'ESC' while entering datawill skip the rema*W}ining fields on thedata entry screen. Lookup records ................. L This option allows you to view arecord th*X}at you have entered. You will be prompted to enter the 'KEY'information that corresponds to therecord(s) you want to view.*Y}** The Customer is the keyfield for the Accounts Receivable program. This field will contain the 'KEY'information fo*Z}r each record Search records ................. S This option allows you to view allof the records that you have e*[}nteredor only selected records. If you choose to see all records each recordwill be displayed on the screen. If you only *\}want to see certain recordsyou must choose a field to 'SEARCH'on and enter information for this option. When yo*]}u are 'Looking up' or 'Searching' records you can press : 'ESC' - to return to the menu 'OPTION' - to get a printed c*^}opy of the record 'SELECT' - to change the record 'START' - to continue displaying records *_} 'D' - to delete the record Delete records ................. D This option allows you to removerecords from your da*`}ta file. Once arecord is deleted, it cannot berecovered. You will be asked for the 'KEY'information for the record that*a} youwant to delete. The record will be displayed and you will be asked to verify that you want to delete the record.*b} Update records ................. UThis option allows you to change anydata that you have entered into yourfile. You*c} will be asked to give the 'KEY' information that has been entered in the 'KEYFIELD' of the record(s) that you want to del*d}ete. To cancel the update process press'ESC' To print the record press 'P'. To save the record press 'S'.*e} Exit to Main Menu ............. M This option will take you out of the program and exit you back to themain menu. *f} Exit to Basic ................. X This option will take you out of theprogram and exit you into basic. ****** Prog*g}ram Notes ****** Since 'Customer' is your 'KEY FIELD',you must enter something in this field.You will not be able to ski*h}p entry onthis field. REMEMBER ... This field is used to lookup, updateand delete records. So you should enter valid *i}information in this field. If you choose to run the reportprogram you will be given the optionto sort your data fil*j}e. The sort program will arrange your data filein either alphabetic or numeric order. There are two times when youmust so*k}rt your file. 1) The first time you run the report program. 2) When you add, delete, or update r*l}ecords. Any other time the sort is optional. When you create a report, you willhave the opportunity to specifysev*m}eral different sections. Each section will print only specificinformation except section one which will print all informat*n}ion on file. You will see a description of what each section does when you run the report program. This produc*o}t was created usingprograms developed by CodeWriter Corporation. The Data Entry program was createdusing FileWriter. T*p}he Report program was created usingReportWriter. The Menus were created usingMenuWriter.optionof running a Data Entr(`HAVIEBREASAVE "D:NOTES.BAS ;@@,.r}6-> @1@@D:USER>@14VIEWED6-@'@1 AP.s}< B@<@@D:USERZ" @VIEWED"@dg +AA(1.t}AA(CA @UAR@g@@i,,@@ D:NOTES.FLEx A.u}? } B(-@@ 2 A?@   <-@@"< " to print, t.v}o continue@!!-@@#@  or to exit,F:B2y,"@" A, AP F.w}:B2y,"@A0**F:B2y,"@*!A Ap@ }:-@@: .x} Program loading, please wait ...AR% D:MENU.BAS, Ap6<-@@" /-@.y}@"< Printing@2-@!6.2-@8J 167%@,.>:,T  3 r$y.z})6-F:@,&A(& )$"y@B7t$ D2:NOTES.BASSAVE "D:NOTES.BAS ;@@,,YghSCRIDXDATPNTINDEXSRLTRPRTREPNUDSFLLENGTTYPIGCASUDOWIPNFFLLOHIGMIEMAR2|} 2}}2~} !"SAVE "D:SORT.BASdPROSPECTIVE SORTn1) ENTER SORT PARMSx2) REQUEST DATA DISK3)2} READ IN INDEX$4) READ IN RECORDS5) SORT RECORDS6) CREATE .I## FILEHOUSEKEEPINGpp;@,2};@,;@,;@,;A@,;A$@B,;A,;@@,;@@,,STEP ONE6//@2}@D:SORTPARS.DAT@@@B@@J@@K2}@@L6-!6- M 6-O:,N"@6-@O"@6-@Q S2}TEP TWO REQUEST DATA DISKRT 6.6-B:,%@^67&@,..IDXh 6.r67,.=:A%,|)67<2},.I)67@<@,.15 A@5@@ B A +@/-2}@@/ @ PLEASE PLACE/-@@/ @ DATA DISK IN=-@@= @DR2}IVE #7@<@,0-@@0 @ PRESS --@@- @ WHEN READY F:2}B2y,@Ap + ASTEP THREE READ IN INDEX$ A6-@@2}67,.6-%B:, A''6-P:B:,'@,$@%@- A06--6-A:7,,&@2}! B!!A8 }-@@8 NO RECORDS IN DATA FILE.&& STEP FOUR: READ IN R2}ECORDS6 6. !67$+@%,,.067@,.66-" 6."67B:,&@,..DAT1 +-@2}@1AR@ RECORDS READ IN:+@+@@-@QQ6-@'$2}+@:7$@&@,,&@d,%@:7$@&@,,&@d96-@:7$@,,&@2+!A'96-&@d 2}@-@ @* 467,.=:A%,>AAAH67&%@2}<,.R6-%@%W-@"@ \ fpSTEP FIVE: SORTz"@AP,-@2}@, RECORDS SORTED: 16-%@""-&@6@6-%@6-&@,,6.2}7$%@<+%@,$&@,66/7$%@<+%@,$&@,*A@6617$%@<+%@,$2}&@,*A@>.37$%@<$+%@,&@,*46-> A>.27$%@<$+%@,&@,2}*46-> A "6- A 6-P:+%%@,'@,>.37$%@<$+%@,&@,*462}-> A `>.27$%@<$+%@,&@,*46-> A `6-&@ A `06-$+&,0AV2}$P:'AV,"A $$6.7$%@<+%@,$,SS67$%@<$++&@,%@,,.7$+%@,%@2}<$+%@,,$$67$%@<$+%@,,. -@"@ &  A0NUMBER TO STRING"2} A6-"6-A:,# B#6.0001.0000000000"$6-P:L:O:,,,6-O:,'@#2}46.=:A%,467@<@,.7@,( 6.=:,(67@<@%B:,,.!$-@2}@ 67<,.>:@&@:7,,,   $DATE REFORMAT6.7@<@,(O"@e/67@,.7@2}<@,O67@,.7@<@,2O"@i/67@,.7@<@,O67@,.7@<@,2}< 6. $xSTRING STUFF} 6. ( $B:,"$-@B:,6-@:7,,'!@* 2}A#'6-&@267,.>:,   $$$6.7$%@<+%@,$,OO67$%@<$%@,.7$+%@2},%@<$+%@,%@,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$62}7$%@<$+%@,,. A@  STEP SIX WRITE I## FILE  , 6.,67B:,&@